home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / FWFormat.lha / FWFormat / AddFormatting.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-01-24  |  1.3 KB  |  52 lines
  1. /*
  2.  A Macro to add formatting to Final Writer Bibliographies, Indices, Endnotes, etc
  3.  Written by Ronald Goertz
  4.  $VER: AddFormatting.rexx v1.0 (8 Dec 95)
  5. */
  6.  
  7. Options Results
  8.  
  9. /* add libraries */
  10. if exists('libs:rexxreqtools.library') then call addlib('rexxreqtools.library',0,-30,0)
  11. else exit
  12.  
  13. TypeStyle   = 'i u b'
  14. TypeStyle.1 = 'Italic'
  15. TypeStyle.2 = 'Underline'
  16. TypeStyle.3 = 'Bold'
  17.  
  18. SetFind case Ignore Wrap No
  19. Find d2c(1) /* Just make sure requestor is open */
  20.  
  21. Do ts = 1 to Words(TypeStyle)
  22.    AltDown;CtrlDown;Cursor Up;CtrlUp;AltUp
  23.    Find '_'Word(TypeStyle, ts)'_'
  24.    Status ParaPos; parse var result StartPara StartPos EndPara EndPos
  25.    Do while EndPara ~= ''
  26.       Delete
  27.       Status ParaPos; parse var result StartPara StartPos
  28.       FindNext
  29.       Delete
  30.       ShiftDown
  31.          MoveToPara StartPara StartPos
  32.       ShiftUp
  33.       Style TypeStyle.ts
  34.       Cursor Left
  35.       FindNext
  36.       Status ParaPos; parse var result StartPara StartPos EndPara EndPos
  37.    end
  38. end
  39.  
  40. GetSectionSetup Name
  41. if (result == 'Bibliography')|(result == 'Endnotes') then do
  42.    AltDown;CtrlDown;Cursor Down;CtrlUp;AltUp
  43.    Status ParaPos; parse var result ParaCount .
  44.    if ParaCount < 4 then break
  45.    do i = ParaCount to 4 by -1
  46.       MoveToPara i 0
  47.       Type d2c(13)
  48.    end
  49. end
  50.  
  51. Find d2c(1)'Done formatting'd2c(1)
  52.